<!--#include file="p1.asp" -->
<%
m1
Function m1()
dim fs,f,txt,mystr,i
dim head,tail,tail1,tail0,regEx,sql
dim line,ret,blank

set fs=Server.CreateObject("Scripting.FileSystemObject") 
Set f=fs.OpenTextFile(Server.MapPath("upload\" & val("qes")), 1)
line=0
blank=0

Easp.Db.Del "lxb", "1=1"
do while f.AtEndOfStream = false
	line=line+1
	sql=f.ReadLine
	echo sql
	Easp.Db.Exec(sql)
loop
f.Close
Set f=Nothing
Set fs=Nothing
End Function
%>